home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 March / EnigmA AMIGA RUN 25 (1997)(G.R. Edizioni)(IT)[!][issue 1998-03].iso / shape-files / shapedisk01.ssf / Games / Duke3D 68k / Duke / Duke.rsrc / scrp_1001_FireObject < prev    next >
Text File  |  1997-05-14  |  921b  |  67 lines
  1.  
  2.  
  3.   ifaction 0
  4.     ifrnd 16
  5.     {
  6.       action FIRE_FRAMES
  7.       cstator 128
  8.     }
  9.  
  10.   sleeptime 300         // Never let it fall to sleep
  11.  
  12.   ifspawnedby FIRE
  13.   {
  14.     ifgapzl 16
  15.       break
  16.   }
  17.   else
  18.     ifspawnedby FIRE2
  19.   {
  20.     ifgapzl 16
  21.       break
  22.   }
  23.  
  24.   ifinwater
  25.     killit
  26.  
  27.   ifp palive
  28.     ifpdistl 844
  29.       ifrnd 32
  30.         ifcansee
  31.   {
  32.     soundonce DUKE_LONGTERM_PAIN
  33.     addphealth -1
  34.     palfrom 32 32
  35.   }
  36.  
  37.   ifactor FIRE
  38.   {
  39.     ifspawnedby FIRE
  40.       break
  41.   }
  42.   else
  43.     ifactor FIRE2
  44.       ifspawnedby FIRE2
  45.         break
  46.  
  47.   iffloordistl 128
  48.   {
  49.     ifrnd 128
  50.     {
  51.       ifcount 84
  52.         killit
  53.                 // This line(and the else below)
  54.                 // is not necessary, since actors
  55.                 // with zero x-size are automatically
  56.                 // deleted anyway!
  57.       else
  58.         ifcount 42
  59.           sizeto 0 0
  60.       else
  61.         sizeto 32 32
  62.     }
  63.   }
  64.   else
  65.     killit
  66.  
  67. ends